home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / PhoneCnvrt.cpt / Phone Number Convert 2 / card_2981.txt < prev    next >
Text File  |  1990-01-25  |  2KB  |  92 lines
  1. -- card: 2981 from stack: in
  2. -- bmap block id: 3374
  3. -- flags: 0000
  4. -- background id: 2739
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (field)
  9. -- low flags: 00
  10. -- high flags: 2004
  11. -- rect: left=231 top=137 right=182 bottom=476
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 21
  16. -- text size: 24
  17. -- style flags: 0
  18. -- line height: 32
  19. -- part name: 
  20.  
  21.  
  22. -- part 7 (field)
  23. -- low flags: 01
  24. -- high flags: 2004
  25. -- rect: left=232 top=216 right=261 bottom=477
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 21
  30. -- text size: 24
  31. -- style flags: 0
  32. -- line height: 32
  33. -- part name: 
  34.  
  35.  
  36. -- part 8 (button)
  37. -- low flags: 00
  38. -- high flags: 8004
  39. -- rect: left=18 top=210 right=264 bottom=184
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 10610 / 10610
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Click Here To Convert
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   put empty into cd field 2
  51.   repeat with i = 1 to 8
  52.     put char i of cd field 1 into it
  53.     if it is 1 or it is 2 or it is 3 or it is 4 or it is 5 or it is 6 or it is 7 or it is 8 or it is 9 or it is 0 or it is "-" then put it after cd field 2
  54.     if it is "A" or it is "B" or it is "C" then put "2" after cd field 2
  55.     if it is "D" or it is "E" or it is "F" then put "3" after cd field 2
  56.     if it is "G" or it is "H" or it is "I" then put "4" after cd field 2
  57.     if it is "J" or it is "K" or it is "L" then put "5" after cd field 2
  58.     if it is "M" or it is "N" or it is "O" then put "6" after cd field 2
  59.     if it is "P" or it is "R" or it is "S" then put "7" after cd field 2
  60.     if it is "T" or it is "U" or it is "V" then put "8" after cd field 2
  61.     if it is "W" or it is "X" or it is "Y" then put "9" after cd field 2
  62.   end repeat
  63. end mouseUp
  64.  
  65.  
  66. -- part 9 (button)
  67. -- low flags: 00
  68. -- high flags: 0004
  69. -- rect: left=190 top=285 right=326 bottom=235
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 11045 / 11045
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Home
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   visual effect iris open
  81.   go Home
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part contents for card part 5
  87. ----- text -----
  88. 222-wavy
  89.  
  90. -- part contents for card part 7
  91. ----- text -----
  92. 222-9289